home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / NOVA42.SFX / nova.Data convrt (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-02-12  |  3.3 KB  |  91 lines
  1. 10 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 20 DATA300,1200,2400,4800,9600,19200,38400
  3. 30 DATA3408,851,425,4915,1090,459,3410,845,421
  4. 40 DATA3283,820,409,4735,1050,442,3285,814,406
  5. 50 DV=PEEK(186):Q$=CHR$(34):IFDV<8ORDV>16THENDV=8
  6. 60 DIMP$(38),PH$(38),PW$(38),BD$(38),BD%(38),CG%(38),L8%(38),SC$(38),B%(17)
  7. 70 DIMFC$(16),P(12),BD(6):OPEN9,0:VN$="9.4":FORI=0TO6:READBD(I):NEXT
  8. 80 FORJ=0TOPEEK(678)
  9. 90 FORI=0TO8:READQ:R2=INT(Q/256):R1=Q-R2*256:B%(I*2)=R1:B%(I*2+1)=R2:NEXT:NEXT
  10. 100 D1=DV:D2=DV:D3=DV:D1$="0:":D2$="0:":D3$="0:":PN=4:PS=7:SW=0:C8=191:C9=15
  11. 110 C4=1:C7=27:XO=17:XF=19:XP=0:PA=0:FT=15:FC=32:SR=1:FK$="":SS$=""
  12. 120 PRINT"[147][206]OVATERM CONFIG FILE CONVERTER"
  13. 130 PRINT"([195]ONVERTS OLDER CONFIG FILES TO V"VN$")":OPEN15,DV,15
  14. 140 PRINT"[197]NTER OLD VERSION NUMBER: [160][157]";:INPUT#9,V$:PRINT""
  15. 150 V=VAL(V$):IFV=0THEN440
  16. 160 VV$=MID$(STR$(V),2):IFV=INT(V)THENVV$=VV$+".0"
  17. 170 GOSUB610:IFV=0THEN140
  18. 180 IFV>9THEN260
  19. 190 PH=38:FORI=1TO38:IFBD$(I)=""THEN220
  20. 200 J=0:FORK=0TO6:IFVAL(BD$(I))=BD(K)THENJ=K:K=6
  21. 210 NEXT:BD%(I)=J
  22. 220 IFP$(I)=""THENPH=I-1:I=38
  23. 230 NEXT:IFBD<7THEN260
  24. 240 J=0:FORI=0TO6:IFBD=BD(I)THENJ=I:I=6
  25. 250 NEXT:BD=J
  26. 260 PRINT"[211]AVING...":IFPF$=""THENPF$="NOVA PHONE"
  27. 265 IFFK$=""THENFK$="NOVA KEY"
  28. 270 OPEN2,DV,2,"NOVA DATA "+VN$+",S,W":PRINT#2,VN$
  29. 280 PRINT#2,BD:PRINT#2,DI:PRINT#2,D1
  30. 290 PRINT#2,D2:PRINT#2,Q$D1$:PRINT#2,Q$D2$:PRINT#2,D3:PRINT#2,Q$D3$
  31. 300 PRINT#2,PN:PRINT#2,PS:PRINT#2,C1:PRINT#2,C2:PRINT#2,C3:PRINT#2,C4
  32. 310 PRINT#2,BE:PRINT#2,RE:PRINT#2,C7:PRINT#2,C8:PRINT#2,C9:PRINT#2,XO:PRINT#2,XF
  33. 320 PRINT#2,XP:PRINT#2,SW:PRINT#2,PA:PRINT#2,FT:PRINT#2,FC:PRINT#2,SR
  34. 330 FORI=0TO17:PRINT#2,B%(I):NEXT
  35. 340 PRINT#2,Q$MI$:PRINT#2,Q$MO$:PRINT#2,Q$PT$:PRINT#2,Q$FO$:PRINT#2,Q$F8$
  36. 350 PRINT#2,Q$TE$:PRINT#2,Q$AS$:PRINT#2,Q$PF$:PRINT#2,Q$FK$:PRINT#2,Q$SS$:CLOSE2
  37. 360 IFPH=0ORV>=9THEN440
  38. 370 IFPH<20THEN410
  39. 380 PRINT#15,"S:"PF$"1":OPEN2,DV,2,PF$+"1,S,W":PRINT#2,PH-19
  40. 390 FORI=20TOPH:PRINT#2,Q$P$(I):PRINT#2,Q$PH$(I):PRINT#2,Q$PW$(I):PRINT#2,BD%(I)
  41. 400 PRINT#2,CG%(I)+2*L8%(I):PRINT#2,Q$SC$(I):NEXT:CLOSE2:PH=19
  42. 410 PRINT#15,"S:"PF$:OPEN2,DV,2,PF$+",S,W"
  43. 420 PRINT#2,PH:FORI=1TOPH:PRINT#2,Q$P$(I):PRINT#2,Q$PH$(I):PRINT#2,Q$PW$(I)
  44. 430 PRINT#2,BD%(I):PRINT#2,CG%(I)+2*L8%(I):PRINT#2,Q$SC$(I):NEXT:CLOSE2
  45. 431 OPEN2,DV,2,FK$+",S,W":FORI=2TO16:PRINT#2,Q$FC$(I):NEXT:CLOSE2:GOTO560
  46. 440 IFV>=9.2THEN560
  47. 450 PRINT"[197]NTER PHONE BOOK FILE: [160][157]";:INPUT#9,PF$:PRINT
  48. 460 IFPF$="[160]"THEN560
  49. 470 OPEN2,DV,2,PF$:INPUT#15,E:IFE>19THEN550
  50. 480 INPUT#2,PH:FORI=1TOPH:INPUT#2,P$(I),PH$(I),PW$(I),BD$(I)
  51. 490 INPUT#2,CG%(I),L8%(I),SC$(I):IFVAL(BD$(I))<7THENBD%(I)=VAL(BD$(I)):GOTO520
  52. 500 FORK=6TO0STEP-1:IFVAL(BD$(I))>=BD(K)THENBD%(I)=K:K=0
  53. 510 NEXT
  54. 520 NEXT:CLOSE2:PRINT#15,"S:"PF$:OPEN2,DV,2,PF$+",S,W":PRINT#2,PH
  55. 530 FORI=1TOPH:PRINT#2,Q$P$(I):PRINT#2,Q$PH$(I):PRINT#2,Q$PW$(I):PRINT#2,BD%(I)
  56. 540 PRINT#2,CG%(I)+2*L8%(I):PRINT#2,Q$SC$(I):NEXT
  57. 550 CLOSE2:GOTO440
  58. 560 PRINT"[147]":IFPEEK(6)<255THENEND
  59. 570 OPEN2,DV,0,"PROG MENU":INPUT#15,E:CLOSE2:IFE>19THEN590
  60. 580 LOAD"PROG MENU",DV
  61. 590 OPEN2,DV,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
  62. 600 LOAD"NOVATERM ?.?*",DV,1
  63. 610 OPEN2,DV,2,"NOVA DATA "+VV$:INPUT#2,V$:IFV$<>VV$THENCLOSE2:GOTO830
  64. 620 IFV>8.1THEN660
  65. 630 FORI=1TO20:INPUT#2,P$(I),PH$(I),PW$(I),BD$(I),CG%(I):NEXT
  66. 640 FORI=2TO16:INPUT#2,FC$(I):NEXT
  67. 650 INPUT#2,BD,PR,S,W,H,C1,C2,C3,BE,RE,MI$,MO$,PT$,FO$,TE$:CLOSE2:RETURN
  68. 660 IFV>8.2THEN700
  69. 670 INPUT#2,PH:FORI=1TOPH:INPUT#2,P$(I),PH$(I),PW$(I),BD$(I),CG%(I):NEXT
  70. 680 FORI=2TO16:INPUT#2,FC$(I):NEXT
  71. 690 INPUT#2,BD,PR,S,W,H,C1,C2,C3,BE,RE,MI$,MO$,PT$,FO$,TE$:CLOSE2:RETURN
  72. 700 IFV>9THEN740
  73. 710 FORI=2TO16:INPUT#2,FC$(I):NEXT
  74. 720 INPUT#2,BD,PR,S,W,H,DI,C1,C2,C3,BE,RE,RM,L8,MI$,MO$,PT$,FO$,F8$,TE$,AS$,PF$
  75. 730 CLOSE2:RETURN
  76. 740 IFV>9.1THEN780
  77. 750 FORI=2TO16:INPUT#2,FC$(I):NEXT
  78. 760 INPUT#2,BD,DI,D1,D2,D1$,D2$,C1,C2,C3,BE,RE,RM,C8,C9,XO,XF,SW
  79. 770 INPUT#2,MI$,MO$,PT$,FO$,F8$,TE$,AS$,PF$:CLOSE2:RETURN
  80. 780 IFV>9.2THEN830
  81. 790 FORI=2TO16:INPUT#2,FC$(I):NEXT
  82. 800 INPUT#2,BD,DI,D1,D2,D1$,D2$,D3,D3$,PN,PS,C1,C2,C3,BE,RE,C8,C9,XO,XF,SW,PA
  83. 810 INPUT#2,FT,FC,SR:FORI=0TO17:INPUT#2,B%(I):NEXT
  84. 820 INPUT#2,MI$,MO$,PT$,FO$,F8$,TE$,AS$,PF$:CLOSE2:RETURN
  85. 830 IFV>9.3THEN880
  86. 840 FORI=2TO16:INPUT#2,FC$(I):NEXT
  87. 850 INPUT#2,BD,DI,D1,D2,D1$,D2$,D3,D3$,PN,PS,C1,C2,C3,BE,RE,C8,C9,XO,XF,XP,SW
  88. 860 INPUT#2,PA,FT,FC,SR:FORI=0TO17:INPUT#2,B%(I):NEXT
  89. 870 INPUT#2,MI$,MO$,PT$,FO$,F8$,TE$,AS$,PF$:CLOSE2:RETURN
  90. 880 PRINT"[214]ERSION NUMBER DOES NOT MATCH":V=0:RETURN
  91.